home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / filecttr.lha / sharewareversion / english / HD_Install.E < prev    next >
Text File  |  1995-12-28  |  1KB  |  60 lines
  1. (set #askdir-help
  2. (cat "You can choice here the directory."))
  3.  
  4. (set #copyfiles-help
  5. (cat "Es wird kopiert."))
  6.  
  7. (set #COPVERZ (cat "\nWere do you like to install the File Cutter?\n\nI craete a new directory."))
  8. (set #COPYFiles (cat "\n Copy files.\n\n"))
  9.  
  10. (Procedure Inst_PatternFiles
  11.  (set @Dest_File (tackon @Ziel @Dest))
  12.  (if                                          ; Verzeichnis erzeugen
  13.   (= (exists @Dest_File) 0)
  14.   (makedir (@Dest_File))
  15.  )
  16.  (set @anzeige (cat "Copy "@FName" from "@SOURCE" \nto "@Dest_File))
  17.  (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest_File))
  18. )
  19.  
  20. (complete 0)
  21.  
  22. (set @default-dest
  23.  (askdir
  24.   (prompt  #COPVERZ)
  25.   (help    #askdir-help)
  26.   (default "")
  27.  )
  28. )
  29.  
  30. (if
  31.  (= (exists @default-dest) 0)
  32.  (makedir @default-dest)
  33. )
  34.  
  35. (set @Ziel (tackon @default-dest "FileCutter"))
  36. (if
  37.  (= (exists @Ziel) 0)
  38.  (makedir (@Ziel))
  39. )
  40.  
  41. (complete 20)
  42.  
  43. (askdisk
  44.  (prompt "\n\n Please insert Disk File Cutter v1.0")
  45.  (help #askdir-help)
  46.  (dest "File Cutter v1.0")
  47. )
  48.  
  49. (complete 60)
  50.  
  51. (
  52.  (set @Source "")
  53.  (set @Dest "")
  54.  (set @Pattern "#?")
  55.  (set @Size 0)
  56.  (Inst_PatternFiles)
  57. )
  58.  
  59. (complete 100)
  60.